*************************************************************** 

Copyright (c) [01/26/1999] Scenix Semiconductor, Inc. All rights reserved. 

;Scenix Semiconductor, Inc. assumes no responsibility or liability for 
the use of this [product, application, software, any of these products] . 
Scenix Semiconductor conveys no license, implicitly or otherwise, under 
any intellectual property rights. 

Information contained in this publication regarding (e.g.: application, 

implementation) and the like is intended through suggestion only and may 

be superseded by updates. Scenix Semiconductor makes no representation 

or warranties with respect to the accuracy or use of these information, 

or infringement of patents arising from such use or otherwise. 
****************************************************************************** 

Filename: sx_modem_3_62 . src 

Author: Chris Fogelklou 

Applications Engineer 
Scenix Semiconductor Inc . 

Revision: 3.62 

Date: January 26, 1999. 

Part: SX2 8AC rev. 2.5 

Freq: 5 0Mhz 

Compiled using Parallax SX-Key software vl . 

Version : 3.62 

Program Description: 

This program is a full implementation of a half -duplex bell2 02 modem 
which transmits and receives at 1200bps. The baud rate of the uart 
connected to it should be set to 1200, N, 8,1. 

The necessary baud rate can be changed easily in this software by 
using the defines present in the sx_demo software, which is available 
on the web. On power-up, this software generates a prompt with some 
instructions on usage. This version of of the software has these 
functions implemented. . . 
- DTMF output for dialing 



- FSK output 

- FSK input 

- 1200 baud UART for communication with a PC or terminal 

- Small AT command set 

- Ring detection 

- Buffer for AT command storage 

- String parser for AT command processing. Allows easy addition of 

- AT commands . 

Authors: Chris Fogelklou, Scenix Semiconductor Inc. 
Written: 98/12/18 to 98/12/21 
Version: 3.62 

Revisions: 3.0 began with the tx_modem_l_0 . src software and combined it 
with the fsk_rx_l_0 software. 

3.1 modified so that UART speed = Transmit speed and this 
is settable by changing the divider_bit 

3.2 has much better documentation inside the software, and 
it also includes a transmit-only mode for error-free file 
transmission at 1200 baud and a receive-only mode for 
error-free file reception at 1200 baud. Future revisions 
will fix the 1200-baud file transfer errors. Debugging work 
is involved. 

3.4 fixes the bug in the DTMF generation code, which was 
causing the output signal to clip and it also adds "twist" 
to the DTMF generation code, which is required. The high 
frequency signal should be 1.25 times greater in amplitude 
than the low frequency signal. (1/5/99) 

3.5 Fixes the bug in the UART code which is causing 
the modem to miss characters during file transfer. 
(UART process) 

3.51 Fixes a bug caused by the bug fix in 3.5, in which the 
pwm DC value is not reset to 2.5V when the output is disabled 

3.6 Adds an AT-command set and RING DETECT to the modem, for 
auto-answer in the AT command set. 

3.61 Adds ATO command to switch back to data mode and also 
adds additional documentation to the source code. (2/8/99) 
Removed the simplex modes of communication. 

3.62 Documentation updates. A lot of old comments were left 
in from rev 3.51. Updated ascii buffer to 63 bytes. Ascii 
buffer space can be re-used for other variables, since its 
operations use the FSR only. The actual RAM usage for the 



buffer is limited to the number of characters stored + 1. 
but it is capable of handling up to 63 bytes . (2/23/99) 



I/O USAGE : INPUTS: 



rx_pin 


equ 


ra. 1 


; RS-232 input pin 


f sk_in 


equ 


rb. 1 


; FSK input pin 


OUTPUTS : 








PWM_pin 


equ 


ra . 


; PWM output for D/A 


tx_pin 


equ 


ra . 2 


; RS-232 output pin 


in out 


equ 


ra. 3 


; Enables/Disables output 






; on 


SX DTMF DEMO boards . 


led_pin 


equ 


rb. 


; LED output pin 


fsk input pin 


is 


rb. 1 


; does not need a define, 


hook equ 


rb.4 


; Selects on-hook/of f -hook 


RESOURCES : 








Program Memory: 


TBD 







a bitmask 



Data Memory: 



TBD 



************************************************************* 
Device Directives 

****************************************************************************** 

device pins2 8 , pages4 , banks8 ; 2 8 -pin device, 4 pages, 8 banks of RAM 

device oschs , turbo, optionx, stackx ; High speed oscillator, turbo mode, 

; option register extend, 8-level stack 
freq 50_000_000 ; default run speed = 50MHz 

ID 'sx mod3 6' ; Version = 3.62 



reset start ; JUMP to start label on reset 

************************************************************************** 

Watches (For Debug in SX_Key software V.1.0 +) 
************************************************************************** 

watch f req_acc_high, 16 , uhex 
watch f req_count_high, 16 , uhex 
watch f req_count_high2 , 16 , uhex 
watch byte,l,fstr 
watch curr_sin, 8 , sdec 
watch sinvel , 8 , sdec 



) 



watch pwm0,8,udec 

watch ring_duration, 8 , udec 

watch timer_flag, l,ubin 

watch timer_l , 16 , uhex 

watch temp, 8 , uhex 

watch f sk_bit_delay, 8 , uhex 

watch fsk_last_bit, l,ubin 

watch f sk_rx_en, 1 , ubin 

watch flags, 8, ubin 

watch ascii_buf f er , 16 , zstr 

watch ascii_buf f er2 , 16 , zstr 

watch ascii_buf f er3 , 16 , zstr 

watch ascii_buf f er4 , 16 , zstr 

watch ascii_index, 8 , udec 

watch fsr,8,udec 

watch indf , 1, f str 

watch wreg, 1, f str 

watch rings, 8, udec 

watch plus_count , 8 , udec 



Macros 

A************************-* 

old board 



; uncomment this if using with old boards, 
j Boards marked REV1 . 4 are newer. Boards 
; Boards with no rev number are older. 
; If board is green and uses a DIP package, 
; keep the oldboard macro commented. 



, w " ■ * * * * 
enable o 



macro 



,- This macro enables the output 



if def 

else 
endif 



old_board 
clrb in_out 

setb in_out 

clr flags 
endm 



; switch on the new modem boards . 



.*******★******************************* 

; Equates for the FSK receive part of the modem 

glitch_th equ 10 ; The threshold which defines a glitch (small spike which should be 

ignored) 

low_count_error_th equ 3 ; The lowest count allowed for a high frequency 

low_high_th equ 95 ; The lowest count allowed for a low frequency 

high_count_error_th equ 150 ; The highest count allowed for a low frequency 

; *** 1200 baud using a 1/2 counter. 

baud_bit = 7 ; f or 1200 baud fsk 

start_delay = 12 8+64+1 ; " 

divider_bit =1 ; 1 for 1200 baud, 2 for 600 baud, 3 for 300 baud. 



. ********************************************************* 

; Equates for common data comm frequencies (DTMF generation) 
.************************************************************************** 



f697 h 
f 697_1 


equ 
equ 


$012 
$09d 


7 


DTMF 


Frequency 


f 770_h 
f 770_1 


equ 
equ 


$014 
$090 


/ 


DTMF Frequency 


f 852_h 
f 852_1 


equ 
equ 


$016 
$0c0 


; 


DTMF 




f 941_h 
f 941_1 


equ 
equ 


$019 
$021 


} 


DTMF 


Frequency 


f 1209_h 
f 1209_1 


equ 
equ 


$020 
$049 




DTMF 


Frequency 


f 1336_h 
f 1336_1 


equ 
equ 


$023 
$0ad 


i 


DTMF 


Frequency 


fl477 h 
f 1477_1 


equ 
equ 


$027 
$071 


§ 


DTMF 


Frequency 


f 1633_h 


equ 


$02b 




DTMF 


Frequency 



) 



fl633_l equ $09c 

fl300_h equ $022 ; 1300Hz Signifies HIGH data in Bell202 Spec 

fl300_l equ $0b7 

f2100_h equ $038 ; 2100Hz Signifies LOW data in Bell202 Spec 

f2100_l equ $015 



.************************************************************************** 
; Pin Definitions 

.************************************************************************** 



PWM_pin 
rx_pin 
tx_pin 
in_out 

led_pin 

;fsk input pin 
ring eqi; 
hook eqi 



equ 


ra. 


equ 


ra . 1 


equ 


ra . 2 


equ 


ra. 3 


equ 


rb. 


is 


rb. 1 


rb. 3 




rb.4 





; PWM output for D/A 

; RS-232 Input pin 

; RS-232 Output pin 

; Switches between output 
; and input on SX DTMF DEMO boards . 

; Flashes while characters are 
; being received. 

; does not need a define, uses a bitmask 
; Ring detection pin 
; Goes on/off -hook. 



******************************************************************** 



************************************************************************** 
Global Variables 

************************************************************************** 
org $8 ; Global registers 

flags ds 1 

rx_flag equ flags. ; Signifies a bit recieved via. RS-232 

dtmf_gen_en equ flags. 1 j Signifies whether or not DTMF output is enabled 

fsk_tx_en equ flags. 2 ; These flags are the same and they both 

f sk_transmitting equ flags. 3 ; indicate when the UART is transmitting 

timer_flag equ flags. 4 ; Flags a rollover of the timers. 

fsk_rx_en equ flags. 5 ; Enables the FSK receiver. 

fsk_rx_flag equ flags. 6 ; Signifies reception of FSK 

ring_det_en equ flags. 7 ; Enables the ring detector 



temp ds 1 ; Temporary storage register for use by the main program 

divider ds 1 ; used to divide down the UART to 12 baud 



IRQ_temp ds 1 ; Temporary register for use by the interrupt service routine 

ascii_index ds 1 ; Register used for the ascii buffering 

command_index ds 1 ; Register used as an index to the command to compare to. 



.************************************************* 
; Bank Variables 

.************************************************************^ 
$10 



sin_gen_bank 


= 


$ 




f req_acc_high 




ds 


1 


f req_acc_low 




ds 


1 


f req_acc_high2 




ds 


1 


rreq acc low^i 




as 


1 


f req_count_high 




ds 


1 


f req_count_low 




ds 


1 


freq count high2 


as 


1 


/ 






ds 


-L 


curr_sin 


ds 


1 


f 


sinvel 




ds 


l 


curr sin2 


ds 


l 




sinvel2 




ds 


l 


PWM_bank 


$ 






pwm0_acc 


ds 


1 




pwmO 


ds 


1 




timers 




$ 




timer_l 




ds 


1 


timer_h 




ds 


l 



; 16 -bit accumulator which decides when to increment the sine wave 
/* 

; 16 -bit accumulator which decides when to increment the sine wave 

; freq_count = Frequency * 6.83671552 

; 16 -bit counter which decides which frequency for the sine wave 

[_count = Frequency * 6.83671552 

; 16 -bit counter which decides which frequency for the sine wave 

current value of the imitation sin wave 
; The velocity of the sin wave 

current value of the imitation sin wave 
; The velocity of the sin wave 



I PWM accumulator 
; current PWM output 



.******************************************************** 



; Bank 1 Variables 

.************************************************************* 
org $30 ;bank3 variables 

serial = $ ;UART bank 

tx_high ds 1 ;hi byte to transmit 

tx_low ds 1 flow byte to transmit 

tx_count ds 1 ; number of bits sent 

tx_divide ds 1 ;xmit timing (/if) counter 

rx_count ds 1 /number of bits received 

rx_divide ds 1 /receive timing counter 

rx_byte ds 1 /buffer for incoming byte 

string ds 1 

byte ds 1 

plus_count ds 1 /counts the number of '+'s received 

/while in FSK_IO mode. 

.************************************************************* 
/ Bank 2 Variables 

.****************************************■*•******************** 
org $ 5 

f sk_transmit_bank = $ 

f sk_bit_delay ds 1 

fsk_tx_byte ds 1 
fsk_flags ds 1 

fsk_last_bit equ fsk_flags.O 

f sk_tx_counter ds 1 

f sk_receive_bank = $ 

f sk_trans_count ds 1 / This register counts the number of counts 

/ between transitions at the pin 
rb_past_state ds 1 / This register keeps track of the previous 

fsk_rx_count ds 1 / number of bits received 

f sk_rx_divide ds 1 / bit delay 

fsk_rx_byte ds 1 / buffer for incoming byte 



f sk_current_in equ f sk_f lags . 1 ; The bit represented by the current input frequency 
fsk_trans equ fsk_flags.2 

.************************************************************* 
; Bank 3 Variables 

.***********************************^ 
org $7 

$ 

ds 1 
ds 1 



1 

equ ring_flags.O 
ring_f lags . 1 
ring_f lags . 2 
ring_f lags . 3 
ring_f lags . 4 
equ ring_flags.5 
1 
1 

ds 1 
ds 1 
ds 1 
1 

.***********************************^ 

; Bank 4, 5, 6, 7 (for ascii buffer, but can be reused.) 
.************************************************************* 



org $90 






ascii_buf f er 


= 


$ 


org $b0 






ascii_buf f er2 


= 


$ 


org $d0 






ascii_buf f er3 


= 


$ 


org $f0 






ascii_buf f er4 




$ 



ring_detect_bank 

ring_timer_low 
ring_timer_high 



ring_flags ds 
ring_timer_f lag 

ringing_l equ 

ringing_2 equ 

long_ring equ 

ring_pause equ 
ring_captured 

ring_of f_timer_l ds 

ring_timer ds 
ring_duration 
ring_duration_timer 
answer_rings 

rings ds 



.********** 
; Interrupt 



; With a retiw value of -163 and an oscillator frequency of 50MHz, this 

; code runs every 3.2 6us. 

.*****************************^ 

org $0 ; The interrupt Service routine starts at location zero. 

.************************************************* 

PWM_OUTPUT 

; This outputs the current value of pwmO to the PWM_pin. This generates 
; an analog voltage at PWM_pin after filtering. 
I INPUTS : 

pwmO - The value from 0-255 representing the analog voltage to be 
; output by the PWM_pin 

.******************************^ 

bank PWM_bank 

add pwmO_acc,pwmO ; add the PWM output to the accumulator 

snc 

jmp : carry ; if there was no carry, then clear 

; the PWM_pin 

clrb PWMjiin 
jmp PWM_out 

: carry 

setb PWM_pin ; otherwise set the PWM_pin 

PWM_out 

.*********************************************** 
TASK_SWITCHER 

; Now decide which task to do. . . we may only do one, and the transmit 
; takes priority over the receive functions . 
% INPUTS: 

; flags - Depending on which of the flags are set in the flags register, 

; either FSK transmission, FSK reception, or DTMF generation 

; will occur. 

.***************************************************************** 

snb ring_det_en 

call @ring_detect 

jnb f sk_tx_en, : f sk_tx_out ; If FSK transmit is enabled 

call @sine_generator2 ; only use one of the sine generators 

call @FSK_TX_UART ; perform the transmit UART first 

jmp :TASK_OUT ; and then skip over DTMF because can't do 

:fsk_tx_out ; both at once 



jnb dtmf_gen_en, : sine_gen_out ; if dtmf generation is enabled 

call @sine_generatorl ; do it. 

jmp :TASK_OUT 
sine_gen_out 

jnb f sk_rx_en, : f sk_rx_out ; jump out if the FSK receiver is not enabled 

call @FSK_RECEIVE 
jmp :TASK_OUT 

f sk_rx_out 
TASK_OUT 

************************************************************** 
transmit 

This is an asynchronous transmitter for RS-232 transmission 
INPUTS : 

divider .divider_bit - Transmitter/receiver only executes when this bit is = 1 
tx_divide . baud_bit - Transmitter only executes when this bit is = 1 
tx_high - Part of the data to be transmitted 

tx_low - Some more of the data to be transmitted 

tx_count - Counter which counts the number of bits transmitted. 

OUTPUTS : 

tx_jpin - Sets/Clears this pin to accomplish the transmission. 

************************************************************************** 



jnb 


divider . divider_bit , : rxdone ; cut the UART speed down to 12 00/ 

; depending on divider bit 


600/300 


bank 


serial 






clrb 


tx_divide . baud_bit 


clear xmit timing count flag 




inc 


tx_divide 


only execute the transmit routine 




STZ 




set zero flag for test 




SNB 


tx_divide . baud_bit 


every 2 A baud_bit interrupt 




test 


tx_count 


are we sending? 




JZ 


: receive 


if not, go to : receive 




clc 




yes, ready stop bit 




rr 


tx_high 


and shift to next bit 




rr 


tx_low 






dec 


tx count 


decrement bit counter 




movb 


tx_pin , / tx_low . 6 


•output next bit 





************************************************************************** 
receive 

This is an asynchronous receiver for RS-232 reception 
INPUTS : 

rx_pin - Pin which RS-232 is received on. 



; OUTPUTS : 

rx_byte - The byte received 

rx_flag - Set when a bRyte is received. 

.******************************************************* 



movb 


c, rx_pin 




;get current rx bit 


test 


rx_count 




; currently receiving byte? 


jnz 


: rxbit 




;if so, jump ahead 


mov 


w,#9 




; in case start, ready 9 bits 


sc 






; skip ahead if not start bit 


mov 


rx_count , w 




fit is, so renew bit count 


mov 


rx_divide, #start 


_delay 


; ready 1.5 bit periods 




djnz rx divide, 


: rxdone 


,-middle of next bit? 


setb 


rx_divide . baud_bit 


,-yes, ready 1 bit period 


dec 


rx_count 




,-last bit? 


sz 






; if not 


rr 


rx_byte 




; then save bit 


snz 






;if so 


setb 


rx_f lag 




; then set flag 



: rxdone 

.************************************************************************** 
do_timers 

; The timer will tick at the interrupt rate (3.26us for 50MHz.) To set up 
; the timers, move in FFFFh - (value that corresponds to the time.) Example: 
; for 1ms = lms/3.26us = 306 dec = 132 hex so move in $FFFF - $0132 = $FECD 
.************************************************************************** 



: timer out 



bank 


timers 




Switch to the timer bank 




mov 


w,#l 








add 


timer_l,w ; 


add 1 


to timer 1 




j nc 


: timer out ; 


if it 


's not zero, then 




add 


timer_h,w ; 


don' t 


increment timer h 




snc 










setb 


timer_f lag 








movb 


led_pin, timer h.6 ; 


once 


timer h is changed, update 


the LED 


clrb 


divider. divider bit 








inc 


divider 




do nothing unless divider_ 


_bit is a 



■ ******************************************************** 
:ISR DONE 



; This is the end of the interrupt service routine. Now load 163 into w and 
; perform a retiw to interrupt 163 cycles from the start of this one. 
; (3 . 2 6us@5 0MHz) 

.*********************************^ 

mov w,#-163 ;1 ; interrupt 163 cycles after this interrupt 

retiw ;3 ; return from the interrupt 

; End of the Interrupt Service Routine 



; *****************************^^ 
start 

; Program Starts Here on Power Up 
.********************************^ 

jmp start_2 

_FSK_IO jmp FSK_IO ; Jump table for FSK_IO 



start 2 



call 
call Oinit 



; clear all ram contents 
; initialize all important registers 



senc 



; Main Code : 

; -Sends Prompt 

; -Waits for input from UART 

; -Pushes incoming characters onto the buffer. 

; -If incoming character is a backspace, deletes last character from 
; buffer 

; -On CR character, jumps to the parse_string routine 
; -Outputs RING if a ring is detected 

; -Answers if the modem is set for auto-answer mode and a ring is detected, 

after number of rings specified occurs . 
•**************************************^ 



mov w,#_hello 

call @send_string 

mov w, #_instructions 

call @send_string 

mov w , #_CR 

call @send_string 

mov w, #_COMMAND_MODE 



i send hello string 



send instructions 



_cmd_loop 



call 
mov 
call 
clr 

jb 

setb 

bank 

j nb 

clrb 

cjb 

inc 

mov 

call 

bank 

mov 

jz 

xor 

jz 



@send_string 
w, #_prompt 
@send_string 
flags 



; send prompt 



hook, : not_auto_answer 
ring_det_en 
r i ng_de tect_bank 
ring_captured, : not_auto_answer 
ring_captured 

ring_duration, #27 , : not_auto_answer 
rings 
w, #_RING 
@send_string 
ring_detect_bank 
w, answer_rings 
: not_auto_answer 
w, rings 
: answer 



; If we are off -hook, don't 
watch for ring. 



If the ring was less than 
200ms, ignore it, otherwise 
increment the ring count . 

; and send 'RING' to the terminal 



is 



; If answer_rings is 0, then this 
not auto answer. 
; Else, if # rings = answer_rings , answer 



:not auto answer 



it. 



the buffer. 



clrb 
bank 
mov 

call 
cj e 
cje 
mov 

call 
cje 

call 
j m P 



rx_f lag, _cmd_loop 

rx_f lag 

serial 

byte, rx_byte 

©uppercase 
byte ,#$2 0, _cmd_loop 
byte,#$0d, :enter 
w, byte 

@send_byte 

byte, #$08, rbackspace 

@buf f er_push 
_cmd_loop 



; wait for an input character 
; from terminal 



; convert it to uppercase 

; if it equals a space, ignore it. 
; if it equals a carriage return, parse the string. 

; if it does not resemble the above characters, echo 



; if it equals a backspace, delete one character in 

; otherwise, store it 
; and come back for more . 



: answer 



setb hook 

clrb ring_det_en 

mov w,# ANSWERING 



; answer the phone ! ! ! 
; disable ring detect. 

,- send 'answering' to the terminal 



call @send_string 
call _FSK_IO 
jmp _cmd_loop 



; go to half -duplex mode, 
and go back for more. 



call 
jmp 



: backspace 



: enter 



**************! 



@buf f er_backspace 
_cmd_loop 



If the user presses enter, then parse the string. 



String parser (Checks to see if buffer = any commands) 
-Checks contents of ascii buffer against any commands stored in ROM 
-If a command = the contents of the ascii buffer, a routine will be called 
-Each routine MUST perform a retw on exit, or parse_string will not 
know that a routine has run and it should exit back to command mode. 
-Exits back to command mode when it detects a zero after the table look-up. 
-Outputs 'OK' if no commands are matched. 



parse_string 



: loop 



:not_equal 



: done 



clr 


ascii_index 




Clear the index into the ascii buffer 


clr 


command_index 




; And the index into the commands 


call 


©buffer get 




Get a vale from the buffer at ascii_index 


call 


command_table 




; Get a character from one of the commands 


test 


w 


r 


If the return value is 0, then this matched 


jz 


: done 


i 


the command and ran a routine. Exit. 


bank 


serial 






xor 


w,byte 




; compare the command's character with the 


jnz 


:not equal 


t 


buffer's character. 


call 


@inc_ascii_index 


i 


Increment the index into the buffer. 


jmp 


: loop 






inc 


command_index 




; If the buffer did not equal the command, 


clr 


ascii index 


t 


start from the beginning of a new command 


cjne 


command index, #6 ,: loop 




; and the buffer. (This number = # of commands) 


mov 


w,#_OK _ 




; If we have checked all 4 commands, then this 


call 


@send_string 




; did not equal any so send an 'OK' message. 


bank 


ascii_buf f er 






clr 


ascii_index 






clr 


ascii buffer 







jmp _send_prompt 

.************************************************************************** 
command_table 

mov w, command_index 

add pc,w 

jmp command_l 

jmp command_2 

jmp command_3 

jmp command_4 

jmp command_5 

jmp command_6 

.************************************************************************** 

command_l ; Dial command 

mov w, ascii_index 

add PC,w 

retw 'A' 

retw ' T 1 

retw 'D' 

retw ' T ' 

jmp DIAL_MODE 

.************************************************************************** 

command_2 ; Hang up command 

mov w, ascii_index 

add PC,w 

retw 1 A 1 

retw 1 T 1 

retw 'H' 

j mp HANG_UP 

.************************************************************************** 
command_3 ; Initialize 

mov w, ascii_index 

add PC,w 

retw 'A' 

retw 1 T ' 

retw 1 Z ' 

jmp INITIALIZE 

* ***##*****#******* ****************** * #'* S * {IMF * • * tt • * * • * * W * • • • # * # * • * * * «^ # • *' * * 

command_4 ■ Answer/ Auto answer 

mov w, ascii_index 

add PC,w 



retw 'A' 
retw 1 T' 
retw 'A' 
jmp AUTO_ANSWER 
.*************************************^ 

command_5 ; Data mode 

mov w, ascii_index 

add PC,w 

retw 'A' 

retw 1 T 1 

retw '0' 

jmp FSK_I0 
.******************************************** 

command_6 ; Help 

mov w, ascii_index 
add PC,w 
retw 1 ? 1 
jmp HELP 

.********************************************* 

; END of String parser (Checks to see if buffer = any commands) 
.************************************************** 

.***************************************** 
; Dial Mode: 

; -Dials contents of ascii buffer, starting from location pointed 

; to by ascii_index. 

; -Responds to these commands : 

; 0-9, *, # - Dials the specified number 

; , - Pause for 2 seconds 

; -Jumps to data mode after dialing. 

.*************************************************** 
DIAL_M0DE 

clrb ring_det_en 
mov w,#_CR 
call @send_string 
mov w , #_D I AL ING 
call @send_string 
setb hook 

:dial_loop call @buffer_get 



; send Dialing 

; pick up the line 

; wait for an input character 



: inc 



:pause 



call 


©uppercase 


; convert it to uppercase 


mov 


w, byte 




snz 






jmp 


FSK 10 




call 


@send_byte 




cje 


byte , # ' , ' , : pause 


; if the character = ' , 1 , pause for 2s 


call 


@digit_2_index 


; convert the ascii digit to an 






; index value 


call 


@load_f requencies 


; load the frequency registers 


call 


@dial_it 


; dial the number for 60ms and return. 


call 


@inc_ascii_index 


; increment the index into the table 


jmp 


: dial_loop 




mov 


w, #201 


; delay 2s 


call 


@de 1 ay_l n_ms 




jmp 


: inc 





.************************************************ 
; FSK Input/Output mode: 
; -Sends Prompt 

; -Sends any characters received from the terminal through the phone line 

; and sends any characters received from the phone line to the terminal 

; -performs retw when it detects incoming 1 +++ 1 from UART 
.************************************************* 



FSK 10 



mov w,#_CR 

call @send_string 

mov w , #_DATA_MODE 

call @send_string 

mov w , #_PR0MPT 

call @send_string 

bank sin_gen_bank 

mov curr sin2,#-4 



send FSK I/O string 



(0) 



mov 
clr 



: RESET PLUSES 



sinvel2 , #-8 
flags 
setb fsk_rx_en 
bank serial 

mov plus_count , #3 



; set up so the wave starts at close to the right spot 

enable the FSK detector 

; counts the number of 1 + 1 s received 



: TX_LOOP 

jb f sk_rx_f lag, : f sk_byte_received 
: f sk_byte_received 

jb rx_flag, :byte_received ; 
jmp :TX_LOOP 

: byte_received 

bank serial ; 
mov byte,rx_byte 

clrb rx_flag ; 
call @f sk_transmit_byte ; 
serial 
w, byte 
w,#'+' 

:RESET_PLUSES 
plus_count 



bank 
mov 
xor 
jnz 
dec 
snz 
retw 
jmp 



; if FSK received a byte, go to 
if the UART received a byte, go to : byte_received 

echo the character back to the terminal 

clear the flag 

send the byte via. FSK 



:TX LOOP 



return to the loop 



: f sk_byte_received 

bank f sk_receive_bank 

mov w, f sk_rx_byte 

clrb fsk_rx_flag 

call @send_byte 

jmp :TX_LOOP 

********************************** 

HANG_UP i goes on-hook 

mov w,#_CR 

call @send_string 

mov w,#_OK 

call @send_string 

clrb hook 

retw 



; send the character to the terminal 

; clear the flag 

,- return to the loop 



INITIALIZE ; calls init routine 
mov w,#_CR 
call @send_string 
mov w,#_OK 



call @send_string 
call ©init 
retw 

.********************************^ 
HELP ; outputs help stuff 



mov 


w, #_plus 


call 


©send string 


mov 


W, ft COMMAND MODE 


call 


©send string 


mov 


W, ft_LK 


call 


©send string 


mov 


w , ft ATO 


call 


@send_string 


mov 


W, ff DAI A MUDb 


call 


©send string 


mov 


W, ft A1D1 


call 


@send_string 


mov 


W, ft DlADiWCj 


call 


©send string 


mov 


w, # CR 


call 


©send string 


mov 


W, ft A1A 


call 


©send string 


mov 


w, #_AUTO_ANSWER 


call 


@send_string 


mov 


w, #_ATH 


call 


@send_string 


mov 


w, #_HANGING_UP 


call 


@send_string 


mov 


w, #_ATZ 


call 


©send string 


mov 


w, #_INIT 


call 


@send_string 


retw 






.***********************************^ 

AUTO_ANSWER ; Moves a default value of 1 into answer_rings . This 

; specifies the number of rings to answer after. If the 

; user has entered ATA3 , for instance, then a 3 will 

; replace the 1 in answer_rings . The modem will answer 

; after 3 rings. If the user enters ATA, the modem will 

; answer after 1 ring. ATAO should force the modem to 



; pick up immediately. 



bank 


ring detect bank 






L -Lily b 




mov 


answer rings , #1 




pal 1 


tiyjjurrer yeu 


, geu tne next cnaracuer iiom 






; the ascii_buf f er . 


bank 


serial 




mov 


w, byte 


; If this character is not a 


j z 


: done 


; then use it to indicate how many 


sub 


byte , # ' ' 


; rings to trigger on. 


mov 


w , byte 




bank 


ring_detect_bank 




mov 


answer rings, w 




mov 


w,#_CR 




call 


©send string 




mov 


w, #_AUTO_ANSWER 




call 


@send_string 




retw 








org $200 

.*********************************************** 

; Miscellaneous subroutines 

; **********************************^ 

; *********************************************************** 
; Initialization Code 

*************************************************************************** 
init 

call ©zero ram 



bank sin_gen_bank 
mov curr sin, #32 



starts at 0. 
of phase, 
of phase. 



mov sinvel,#0 

mov curr_s in , # - 4 

mov sinvel,#-8 

mov curr sin2,#-4 



; init variables. A sine starts at 1, a cos wave 

; use these values for a wave which is 90 degrees out 

; use these values for a wave which is 90 degrees out 



mov sinvel2,#-8 
call ©disable o 



mov m,#$0c 

mov !rb, #%11111101 ; enable Schmidt trigger on rbl (for FSK receive) 

mov m,#$D ; make raO cmos-level 

mov !ra,#%1110 

mov m,#$F 



debugging 



mov rb, #%11101110 
mov !ra,#%0010 
mov !rb, #%00101110 



; on-hook,led off. 
raO = PWM output, ral = rx_pin, ra2 = tx_pin, ra3 = 
; rb4 = hook, rbO = led pin, rb7,6 is used for 



in out 



mov loption, #%00011111 



enable wreg and rtcc interrupt 



retp 

.******************************************^ 
buf f er_push 

; This subroutine pushes the contents of byte onto the 32 -byte ascii buffer. 
; *********************************^ 

bank serial ; Move the byte into the buffer 

mov temp, byte 

mov f sr, #ascii_buf fer 

add f sr , ascii_index 

mov indf,temp 

I Increment index and keep it in range 

call @inc_ascii_index 

mov f sr , #ascii_buf f er ; Null terminate the buffer. 

add f sr , ascii_index 

clr indf 

bank serial 

retp 

.****************************************** 
.*********************************************** 

buf f er_backspace 

; This subroutine deletes one value of the buffer and decrements the index 
.************************************^ 

dec ascii_index 

and ascii_index, #%01101111 

mov f sr , #ascii_buf f er 
add f sr, ascii_index 



clr indf 
bank serial 
retp 

.************************************************************************** 
i 

inc_ascii_index 

; This subroutine increments the index into the buffer 

.************************************************************************** 



mov 


w,ascii index 


and 


w, #%00001111 


xor 


w, #%00001111 


j nz 


: not_on_verge 


inc 


ascii index 


mov 


w,#16 


add 


w, ascii index 


and 


w,#$7f ~ 


mov 


ascii index, w 


retp 





: not_on_verge 

inc ascii_index 
retp 

.************************************************************************** 
buf f er_get 

; This subroutine retrieves the buffered value at index 

.************************************************************************** 
mov f sr , #ascii_buf f er 
add f sr , ascii_index 
mov w, indf 
bank serial 
mov byte , w 



retp 

.************************************************************************** 
.************************************************************************** 
delay_10n_ms 

This subroutine delays 'w'*10 milliseconds. 

This subroutine uses the TEMP register 

INPUT w - # of milliseconds to delay for. 

OUTPUT Returns after 10 * n milliseconds. 
******************************************************** 

mov temp,w 
bank timers 





t imer 


f 1 an 


mov 


t imer 


n, ff^ur4 


mov 


timer 


"l,#$004 


jnb 


timer_ 


~flag,$ 


dec 


temp 




jnz 


: loop 




clrb 


timer_ 


.flag 


retp 







-***************************************^ 
delay_n_ms 

; This subroutine delays 'w' milliseconds. 
; This subroutine uses the TEMP register 

; INPUT w - # of milliseconds to delay for. 

; OUTPUT Returns after n milliseconds. 
.***********************************^ 

mov temp,w 
bank timers 

: loop clrb timer_flag ; This loop delays for 1ms 
mov timer_h, #$0f e 
mov timer_l , #$0cd 
jnb timer_flag,$ 

dec temp ; do it w-1 times, 

jnz : loop 
clrb timer_flag 
retp 

( . *******************************^ 
zero_ram 

; Subroutine - Zero all ram. 
; INPUTS: None 

; OUTPUTS: All ram locations (except special function registers) are = 
•***********************************^ 

CLR FSR 

:loop SB FSR. 4 ; are we on low half of bank? 

SETB FSR. 3 ; If so, don't touch regs 0-7 

CLR IND ,-clear using indirect addressing 

I JNZ FSR, : loop ; repeat until done 

retp 

; . **********************************^ 

; Subroutine - Get byte via serial port and echo it back to the serial port 
; INPUTS : 



; OUTPUTS : 

; -received byte in rx_byte 

.************************************************************************** 
get_byte jnb rx_f lag, $ ;wait till byte is received 

clrb rx_flag /reset the receive flag 

bank serial 

mov byte,rx_byte ; store byte (copy using W) 

; & fall through to echo char back 

retp 

*************************************************************** 

Subroutine - Get byte via Bell2 02 FSK and send it to the serial port 

INPUTS : 

-NONE 

OUTPUTS : 

-received byte in fsk_rx_byte 
********************************************************************* 

fsk_get_byte jnb f sk_rx_f lag, $ ;wait till byte is received 

clrb fsk_rx_flag ; reset the receive flag 

bank f sk_receive_bank 

mov byte, f sk_rx_byte ; store byte (copy using W) 

; & fall through to echo char back 
************************************************************************** 

Subroutine - Send byte via serial port 
INPUTS : 

w - The byte to be sent via RS-232 

************************************************************************** 

send_byte bank serial 



: wait 



jnz 



test tx_count 
:wait 



;wait for not busy 



not 

mov 

setb 

mov 

RETP 



w 

tx_high, w 

tx_low. 7 

tx count, #10 



ready bits (inverse logic) 

store data byte 

set up start bit 
1 start + 8 data + 1 stop bit 
; leave and fix page bits 



.************************************************************************** 

; Subroutine - Send string pointed to by address in W register 
; INPUTS : 

; w - The address of a null -terminated string in program 



memory 

OUTPUTS : 

outputs the string via. RS-232 
***********************************> 

send_string bank serial 

mov string, w 

: loop mov w, string 

mov m,#4 



iread 

mov 

test 

snz 

RETP 

call 

inc 

jmp 



m,#$F 
w 



send_byte 
string 
: loop 



/store string address 

;read next string character 
with indirect addressing 
using the mode register 
reset the mode register 
are we at the last char? 
if not=0, skip ahead 
yes, leave & fix page bits 
not 0, so send character 
point to next character 
loop until done 



Subroutine - Make byte uppercase 
INPUTS : 

byte - The byte to be converted 



******** 



<*** 



csae 



byte,#'a' 



RETP 



;if byte is lowercase, then skip ahead 



sub 
RETP 



byte,#'a' - 1 A ' 



/change byte to uppercase 
; leave and fix page bits 



************************************************************************** 



; Subroutine - Disable the output (Enable the input) 



.********, 

disable_o 

ifdef 



old_board 
setb in_out 

clrb in out 



; set the analogue switch for 



endif 



bank PWM_bank ; input mode . 

mov pwm0,#12 8 ; put 2.5V DC on PWM output pin 
retp 



. *** 

org 



$ 4 



; Jump table for page 2 

.*******************************************! 
/ 

FSK_RECEIVE jmp _FSK_RECEIVE 

.*******************************************! 

; String data (for RS-232 output) and tables 



_hello 

instructions 
_DIALING dw 
_ANSWERING dw 
_AUTO_ANSWER 
_RING dw 
_PROMPT 
HANGING UP dw 



***************************************> 

dw 13,10,' SX Modem V 3 . 6 1 , 13 , 10 , 

dw ' - ? For Help' ,0 
'DIAL ',0 
' ANSWERING ' , 

dw ' AUTO ANSWER ',13,10,0 

'RING' , 13, 10, 
dw 13,10, '>' ,0 
'HANG UP ' ,13,10,0 



_ATDT 


dw 


13 , 10, ' ATDT= ' , 


_ATA 


dw 


' ATA = ' , 


_ATH 


dw 


1 ATH = ' , 


_ATZ 


dw 


1 ATZ = ' , 


_ATO 


dw 


1 ATO = ' , 


_plus 


dw 


13,10, '+++ =' ,0 


_OK 


dw 


'OK' , 13, 10, 


_CR 


dw 


13, 10, 


_C0MMAND_M0DE 


dw ' COMMAND 


_DATA_M0DE 


dw 


1 DATA MODE ' , 


_INIT 




' INIT' , 









; FSK transmit/receive 



ring_detect jmp _ring_detect 



FSK_TX_UART ; (part of interrupt service routine) 

; This subroutine creates an internal transmit UART using the data in 
,- fsk_tx_byte 



fsk_transmitting 
divider .divider bit 



sb 

RETP 
sb 
RETP 

bank f sk_transmit_bank 

clrb f sk_bit_delay. 7 



; divide the baud by divider_bit 
; multiply the baud by 2 



f sk_bit_delay 



f sk_tx_byte 



dec 
sz 

RETP 
stc 
rr 
sc 

clrb fsk_last_bit 
snc 

setb fsk_last_bit 

f sk_last_bit, :new_bit_is_high 



; Decrement the delay counter 
set the carry bit to create a stop bit 



jb 

: new_bit_is_low 
bank 
mov 
mov 
jmp 

:new_bit_is_high 

bank sin_gen_bank 

mov 

mov 
: end_new_bit 

bank fsk transmit bank 



sin_gen_bank 

f req_count_high2 , #f 2100_h 
f req_count_iow2 , #f 210 0_1 
:end new bit 



f req_count_high2 , #f 1300_h 
f req_count_low2 , #f 1300 1 



output a frequency of 210 0Hz 



output a frequency of 1300Hz 



decsz f sk_tx_counter 
RETP 



: FSK_DONE_TRANSMITTING 

setb fsk_last_bit 
clrb f sk_transmitting 



; since we're done transmitting, 
clear the transmitting flag 



RETP 

.************************************************************************** 
f sk_transmit_byte 

This subroutine initializes the FSK UART and the sine generator and then 
it transmits data via FSK modulation to an outside source. The byte to 
send is passed in the 'w' register. Returns when byte transmission is 
done and FSK wave is close to zero OR when another character is received 
via. RS-232. If another character is received via. RS-232, it immediately 
exits so that next character can begin transmission without re-initializing. 
******************************************************* 



jb f sk_transmitting, $ 
bank fsk transmit bank 



wait until done transmitting. 



: enable 



mov f sk_tx_byte, w 
enable o 



; enable the outputs 



bank f sk_transmit_bank 

clr f sk_bit_delay ; since f sk_bit_delay goes from (256) to zero, 

; clear f sk_bit_delay to set up for the first bit. 

clrb fsk_last_bit ; set fsk_last_bit to be an internal low (start bit) 

mov f sk_tx_counter , #10 ; set up the bit counter for 1 start, 8 data, and 1 stop 

bank sin_gen_bank 

mov f req_count_high2 , #f 2100_h ; set up the sine generator to 

mov f req_count_low2 , #f 2100_1 ; output 2100 Hz. 

mov curr_sin,#0 ; make the output of sin gen 1=0 

; so it doesn't interfere with sin gen 2 

bank f sk_transmit_bank ; enable the 2nd sin generator and the TX UART. 

setb f sk_transmitting 

setb fsk tx en 



bank sin_gen_bank 
:wait_loop snb rx_flag 
retp 



; if another character is received, don't disable 
; output 

jb f sk_transmitting, :wait_loop ; otherwise, wait until we are done transmitting 
cjne curr_sin2 , #-4 , : wait_loop ; and wait until FSK signal is relatively close to zero. 



clrb fsk_tx_en 
setb fsk_rx_en 
call ©disable o 



disable the FSK transmitter 
enable the FSK receiver 
disable the output 



retp 

.******************************************************* 

_FSK_RECEIVE ; FSK receiver starts here. 

t 

.********************************************** 

bank f sk_receive_bank 

add f sk_trans_count, #1 ; Regardless of what is going on, increment the 

snc ; transition timer. These get cleared when a transition 

jmp : roll_over_error ; takes place. 

cjb f sk_trans_count, #low_high_th, : f sk_timer_out ; as soon as it takes longer than 95 

counts 



setb f sk_current_in 

frequency 

: f sk_timer_out 

mov w , rb 

and w,#%00000010 

xor w, rb_past_state 

jz fsk_rx_out 

indicates a bit was received 

40, what???, 

set) , above 14 , 



; to transition, this must be a low 



; get the current state of rb. 

; compare it with the previous state of the pin 
; if there was no change, then jump out, there is nothing to do. 
; Now it is time to determine if the transition that took place 

; (it must be within some thresholds... below 20, ignore it, below 

; below 95, high frequency, below 140, low frequency (already 



pulse was below specs, 
pulse was not a glitch but 
pulse was within specs for a 
; pulse was within specs 



; what???) 

cjb f sk_trans_count, #glitch_th, : glitch_so_ignore 
ignore it... probably noise 

cjb f sk_trans_count, #low_count_error_th, : error 
wasn't long enough to mean anything... huh? 

cjb f sk_trans_count , #low_high_th, : high_f requency 
high frequency. . . 

cjb f sk_trans_count, #high_count_error_th, : f sk_receive_done 
for a low frequency (don't do anything) 

jmp : error ; pulse was too long to mean 

anything, so do nothing. 

: high_f requency ; a high frequency corresponds to low data, 

clrb f sk_current_in 
jmp : f sk_receive_done 

: roll_over_error ; if the counter rolls over, keep it in range. 
. PUT ERROR HANDLING CODE IN HERE 

mov f sk_trans_count , #high_count_error_th 

clr fsk_rx_count 

jmp :glitch_so_ignore 

:error • if there is another type of error, just clear 

; any UART receive. 

. PUT ERROR HANDLING CODE IN HERE 

clr fsk rx count 



: f sk_receive_done 

clr f sk_trans_count 
: glitch_so_ignore 



; clear the bit counter. 
; don't clear the counter if the data was a glitch 



fsk rx out 



mov w , rb 

and w,#%00000010 

mov rb_past_state, w 



save the new state of RB . 



************************************************************************* 
f sk_uart 

This is an asynchronous receiver. Written by Craig Webb. Modified by 
Chris Fogelklou for use with FSK receive routine. 
************************************************************************** 



: rxbit 



bank 

jnb 

movb 

test 

jnz 

mov 

sc 

mov 

mov 

setb 

dec 

sz 

rr 

snz 

setb 



f sk_receive_bank 
divider . divider_bit , f sk_rx_done 

c, f sk_current_in 

f sk_rx_count 

: rxbit 

w, #9 



fsk rx done 



; (Divide operation frequency by divider_bit) 
; get current rx bit 
currently receiving byte? 
if so, jump ahead 
in case start, ready 9 bits 
skip ahead if not start bit 

; it is, so renew bit count 
ready 1.5 bit periods 
djnz f sk_rx_divide, f sk_rx_done ; middle of next bit? 

f sk_rx_divide .baud_bit ; yes, ready 1 bit period 

fsk_rx_count ; last bit? 

; if not 

fsk_rx_byte ; then save bit 

; if so 

fsk_rx_flag ; then set flag 



f sk_rx_count , w 
f sk_rx_divide, #start_delay 



RETP 

************************************************************************** 
END FSK ROUTINES 

************************************************************************** 
************************************************************************** 

DTMF generate lookup tables . Gives the tone required for each of the 



DTMF digits. 



************************************************************************** 
_0_ 
~1_ 
_2_ 

y_ 

~4_ 



dw 
dw 
dw 
dw 
dw 
dw 
dw 



f 941_h, f 941_1, f 1336_h, f 1336_1 
f 697_h, f 697_1, f 1209_h, f 1209_1 
f697_h, f 697_1, f 1336_h, f 1336_1 
f697_h, f697_l, fl477_h, f 1477_1 
f 770_h, f 770_1, f 1209_h, f 1209_1 
f770_h, f 770_1, f 1336_h, f 1336_1 
f770 h,f770 l,f!477 h, f 1477 1 



_7_ 


dw 


f 852 


_h, f 852_1, f 1209_ 


h, f 1209_1 


_8_ 


dw 


f 852 


_h, f 852_1, f 1336_ 


h, f 1336_1 


_9_ 


dw 


f 852 


_h, f 852_1, f 1477_ 


h, f 1477_1 


star 




dw 


f 941_h, f 941_1, 


f 1209_h, f 1209 


pound 




dw 


f 941_h, f 941_1, 


f 1477_h, f 1477 



.***********************************^ 
_ring_detect 

; Ring detect has 3 functions: 

; - It filters out the 20Hz pulsing of the ring-line by using 

; a software monostable with an 80ms timeout. If the length 

; of time between pulses exceeds 80ms, the "ringing_l" flag gets 

; cleared. This can also be used to show the pause between 

; rings in a distinctive ring pattern. 

; - It uses another monostable with a timeout of 53 0ms to 

; filter out distinctive ring pauses, whose largest pause 

; between distinctive rings is 525ms. If the pause exceeds 

; the 530ms timeout, the "ring_occured" flag is set, indicating 

; that a ring is complete. 

; - A duration timer is used to find the amount of time the 

; line was ringing between pauses. This can be used to 

; decode distinctive ring. The register is called 

; ring_duration. The duration is saved as soon as a pause is 

; found. 

-************************************^ 
bank ring_detect_bank 

.********************************************** 

; First run a timer that rolls over every 10ms, so all other timers 

; can sync to it. 

.******************************^ 



inc 


ring_timer_ 


low 


jnz 


:no_roll_l 




inc 


ring timer 


high 


jnz 


: no_roll_l 




setb 


ring timer 


£ lag 


mov 


ring_timer 


low, #$04 


mov 


ring_timer 


"high,#$f4 



:no_roll_l 

.****************************************************************** 



; Now create a monostable that times out after 8 0ms, because this 
; is the maximum amount of time between two pulses of the ring 
; signal. Ringing gets cleared when this monostable times out. 
.***************************************^ 

jb ring, : check_f or_duration 
: ring_low 

mov ring_of f_timer_l, #9 ; if the ring line is low, set up 

setb ringing_l 

jb ringing_2 , : check_f or_duration 

mov ring_timer , #221 

setb ringing_2 

: check_f or_duration 

jnb ring_timer_f lag, : ring_detect_done ; jump out if the timer_flag is not 
clrb ring_timer_f lag 



jnb ringing_l, : not_ringing_l 
inc ring_duration_timer 
snz 

setb long_ring 
dec ring_of f _timer_l 
jnz :not_ringing_l 
: done_short_ring 

clrb ringing_l 

mov ring_duration, ring_duration 

clr ring_duration_timer 

setb ring_pause 

:not_ringing_l 

j nb ringing_2 , : ring_detect_done 
dec ring_timer 
jnz : ring_detect_done 
: done_whole_ring 

clrb ringing_2 
setb ring_captured 



; count the ring duration 

; while it is ringing. 

; clear the flag that indicates 
; it is ringing, 
timer ; and save the duration 
; of the ring. 

; reset the timer which times how 
; long each ring is. 
; indicate pause between rings . 

; Now check if the 53 0ms monostable 
; has timed out. 



: ring_detect_done 
retp 

.************************************************* 

; Done ring detection interrupt service routine 
.************************************************* 

org $600 

.**************************************************** 

; DTMF transmit functions/subroutines 
.*********************************************** 

.******************************************** 
digit_2_index 

; This subroutine converts a digit from 0-9 or a '*' or a '#' to a table 
; lookup index which can be used by the load_f requencies subroutine. To use 
; this routine, pass it a value in the 'byte' register. No invalid digits 
; are used. (A, B, C, or D) 

.************************************************** 
bank serial 

cja byte, # ' 9 ' , : error ; if the character is above 9, then error (get another char) 

cje byte, # ' * 1 , : star 
c j e byte ,#'#', : pound 
cjb byte ,#' ',: error 

sub byte,#'0' ; convert to decimal number 

jmp :got_it 
mov byte, #10 
jmp :got_it 

mov byte, #11 

retp 

mov byte, #$ OFF 
retp 

.********************************************************* 
load_f requencies 

; This subroutine loads the frequencies using a table lookup approach. 

; The index into the table is passed in the byte register. 
.************************************************ 

bank serial 

cje byte, #$ OFF, :end_load_it 



: star 

: pound 

: got_it 
: error 



clc 

rl byte 

rl byte 

add byte , #_0_ 

mov temp, #4 

mov f sr, #f req_count_high 

bank serial 

:dtmf_load_loop mov m,#5 

mov w,byte 
I READ 

bank sin_gen_bank 

mov indf , w 

bank serial 

inc byte 

inc fsr 

decsz temp 

jmp : dtmf_load_loop 

:end_load_it retp 



; multiply byte by 4 to get offset 

; add in the offset of the first digit 



get the value from the table 

; and load it into the frequency 
; register 



; when all 4 values have been loaded, 
; return 



;X 7rxi>>r«i>«i«i>irir»***«<t*«*>**t*******tt*ii;ar**t*«*****)r********t***t********iiit*« 

dial_it ; This subroutine puts out whatever frequencies were loaded 

,- for 60ms, and then stops outputting the frequencies. 
.************************************************************* 

bank serial 

cje byte, #$0FF, :end_dial_it 

bank sin_gen_bank 

mov curr_sin,#-4 



crossing, 
crossing. 



:end dial it 



mov sinvel,#-8 
mov curr_sin2 , #-4 

mov sinvel2,#-8 
enable_o 
mov w,#6 
call @delay_10n_ms 
setb dtmf_gen_en 
mov w,#ll 
call @delay_10n_ms 
clrb dtmf_gen_en 
call @disable_o 
retp 



; use these values to start the wave at close to zero 
; use these values to start the wave at close to zero 

enable the output 

; delay 2 0ms 
dial the number 

; delay 100ms 
stop dialing 
now disable the outputs 



.************************************************************************** 
sine_generatorl ; (Part of interrupt service routine) 

This routine generates a synthetic sine wave with values ranging 

from -32 to 32. Frequency is specified by the counter. To set the 

frequency, put this value into the 16-bit freq_count register: 

freq_count = FREQUENCY * 6.83671552 (@50MHz) 
********************************************************* 

bank sin_gen_bank 

add f req_acc_low, f req_count_low; 2 ; advance sine at frequency 

jnc :no_carry ;2,4 ; if lower byte rolls over 

inc f req_acc_high ; carry over to upper byte 

jnz :no_carry ; if carry causes roll-over 

mov f req_acc_high, f req_count_high ; then add freq counter to accumulator (which should 



be zero, 



:no_carry 



: change_sin 



; so move will work) 
; and update sine wave 

jmp :change_sin 

add f req_acc_high, f req_count_high ; add the upper bytes of the accumulators 



jnc 


: no_change 






mov 


w, ++sinvel 


1 


; if the sine wave 


sb 


curr_sin . 7 


1 


,- is positive, decelerate 


mov 


w, --sinvel 


1 


; it. Otherwise, accelerate 


mov 


sinvel , w 


1 




add 


curr_sin, w 


1 


; add the velocity to sin 



:no_change 



.************************************************************************** 

sine_generator2 ; (Part of interrupt service routine) 

This routine generates a synthetic sine wave with values ranging 

from -32 to 32. Frequency is specified by the counter. To set the 

frequency, put this value into the 16-bit freq_count register: 

freq_count = FREQUENCY * 6.83671552 (@50MHz) 
************************************************************************** 



bank sin_gen_bank 

add f req_acc_low2 , f req_count_low2 ; 2 



/advance sine at frequency 



3 me 
inc 
jnz 
mov 

should be zero, 



:no_carry 



jmp 
add 



sin 



:no_carry ; 2 , 4 ; if lower byte rolls over 

f req_acc_high2 ; carry over to upper byte 

:no_carry ; if carry causes roll -over 

f req_acc_high2 , f req_count_high2 ; then add freq counter to accumulator (which 

; so move will work) 
; and update sine wave 



: change_sin 

f req_acc_high2 , f req_count_high2 



; add the upper bytes of the accumulators 



jnc 


: no_change 






mov 


w, + + sinvel2 


;1 


; if the sine wave 


sb 


curr_sin2 . 7 


; 1 


; is positive, decelerate it 


mov 


w, - -sinvel2 


;l 


; it. Otherwise, accelerate 


mov 


sinvel2 , w 


;l 




add 


curr_sin2 , w 


;i 


; add the velocity to sin 



: no_change 



jb 

mov 

add 

clc 

rl 

add 

retp 



dtmf_gen_en, :do_DTMF 
pwmO , curr_sin 
pwmO , curr_sin2 

pwmO 

pwmO, #12 8 



; mov the value of SIN into the PWM output 
; mov the value of SIN2 into the PWM output 

double the value of the PWM output 

put it in the middle of the output range 

return with page bits intact 



: do_DTMF 
"twist" to the 



value) 



mov 

mov 

clc 

snb 

stc 

rr 

clc 



pwmO , curr_sin2 
IRQ_temp, w 

IRQ_temp . 7 

IRQ_temp 



; If we are doing DTMF generation, then we need to add 

; signal (divide sin2 by 4 and add it to it's original 

; mov sin2 into pwmO 
; mov the high_f requency sin wave's current value 

; into a temporary register 
; divide temporary register by four by shifting right 

; (for result = ( . 25 ) (sin2 ) ) 



snb IRQ_temp.7 
stc 

mov w, >>IRQ_temp 

add pwmO , w 

add pwmO , curr_sin 

add pwm0,#12 8 
negative values) 
retp 



; (1.25) (sin2) = sin2 + (0.25) (sin2) 
; add the value of SIN into the PWM output 
for result = pwmO = 1.25*sin2 + l*sin 

put pwmO in the middle of the output range (get rid of 
return with page bits intact 



